
##------------------------------------------------------------------##
##  CREATE THE DOWNLOAD FILE LINK.                                  ##
##------------------------------------------------------------------##

$WIDTH=750;

$HREFHELP  = "<A HREF=help.html>$F1B<font color=blue>HELP</A>";

$HREF00 = "<A HREF=customs_menu.cgi>";
$HEND00 = "</A>";
$HREF01 = "<A HREF=help.cgi>";
$HEND01 = "</A>";
$HREF02 = "<A HREF=contact.cgi>";
$HEND02 = "</A>";
$HREF03 = "<A HREF=data_uploads.cgi>";
$HEND03 = "</A>";
$HREF04 = "<A HREF=ace_recon.cgi>";
$HEND04 = "</A>";
$HREF05 = "<A HREF=maintain_security.cgi>";
$HEND05 = "</A>";
$HREF06 = "<A HREF=audit_trail.cgi>";
$HEND06 = "</A>";

@TABC        = ("B","B","B","B","B","B","B");
$SUBC        = substr($SCRIPT,1,1);
$TABC[$SUBC] = 'W';

## don't print current tab link unless its a sub-ment ("-" in col 4)
if (substr($SCRIPT,3,1) ne '-') { 
   if (substr($SCRIPT,0,2) eq '00') { $HREF00 = ''; $HEND00 = ''; }
   if (substr($SCRIPT,0,2) eq '01') { $HREF01 = ''; $HEND01 = ''; }
   if (substr($SCRIPT,0,2) eq '02') { $HREF02 = ''; $HEND02 = ''; }
   if (substr($SCRIPT,0,2) eq '03') { $HREF03 = ''; $HEND03 = ''; }
   if (substr($SCRIPT,0,2) eq '04') { $HREF04 = ''; $HEND04 = ''; }
   if (substr($SCRIPT,0,2) eq '05') { $HREF05 = ''; $HEND05 = ''; }
   if (substr($SCRIPT,0,2) eq '06') { $HREF06 = ''; $HEND06 = ''; }
   }

###
###<TD width=60 background=../images/CES-BACK.gif $AC>
###<INPUT TYPE="button" VALUE=" BACK " onClick="parent.frames.history.go(-1);">
###

print <<ENDOFFILE;
<HTML>
<HEAD>
<TITLE> FINANCE - Customs Electronic Storage - $SERVER </TITLE>
<BODY BACKGROUND="" bgcolor="#FFFFFF" text="#000000" link=black vlink=black alink=black>
<STYLE>
    H3 { page-break-before: always }
</STYLE>
</HEAD>
<LEFT>
<TABLE bgcolor=$BC border=1 width=750>
<TR $VAM>
<TD background=../images/CES-BACK.gif $AC height=35>
$FHX<B> Customs Electronic Storage - National Semiconductor Corporation </TD>
ENDOFFILE


print <<ENDOFFILE;
<TR $VAB>
<TD $CS=3><TABLE border=0 cellpadding=0 cellspacing=0>
    <TR height=24>
ENDOFFILE

#print "<PRE>ACCESS:",$ACCESS;

##----------------------------------##
## ACCESS: VIEW
##----------------------------------##
if (substr($ACCESS,0,1) le 'V') {

print <<ENDOFFILE;
    <TD background=../images/CES-TAB$TABC[0]y.GIF width=125 $NW $AC> $HREF00  $F1B<b> Document Search    $HEND00 </TD>
    <TD background=../images/CES-TAB$TABC[1]y.GIF width=125 $NW $AC> $HREF01  $F1B<b> HELP               $HEND01 </TD>
    <TD background=../images/CES-TAB$TABC[2]y.GIF width=125 $NW $AC> $HREF02  $F1B<b> Contact            $HEND02 </TD>
ENDOFFILE

   $WIDTH = $WIDTH - 125;
   $WIDTH = $WIDTH - 125;
   $WIDTH = $WIDTH - 125;

   }


##----------------------------------##
## ACCESS: USER
##----------------------------------##
if (substr($ACCESS,0,1) le 'U') {

print <<ENDOFFILE;
    <TD background=../images/CES-TAB$TABC[3]y.GIF width=125 $NW $AC> $HREF03  $F1B<b> Data Uploads       $HEND03 </TD>
ENDOFFILE

   $WIDTH = $WIDTH - 125;

   }


##----------------------------------##
## ACCESS: ACE-RECON
##----------------------------------##
if (substr($ACCESS,0,1) le 'B') {

print <<ENDOFFILE;
    <TD background=../images/CES-TAB$TABC[4]y.GIF width=125 $NW $AC> $HREF04  $F1B<b> ACE Recon          $HEND04 </TD>
ENDOFFILE

   $WIDTH = $WIDTH - 125;

   }

##----------------------------------##
## ACCESS: ADMIN
##----------------------------------##
if (substr($ACCESS,0,1) le 'A') {

print <<ENDOFFILE;
    <TD background=../images/CES-TAB$TABC[5]y.GIF width=125 $NW $AC> $HREF05  $F1B<b> System Access      $HEND05 </TD>
ENDOFFILE

   $WIDTH = $WIDTH - 125;

   }


##----------------------------------##
## ACCESS: IS_ADMIN
##----------------------------------##
#if (substr($ACCESS,0,1) le '!') {
#
#print <<ENDOFFILE;
#    <TD background=../images/CES-TAB$TABC[6]y.GIF width=125 $NW $AC> $HREF06  $F1B<b> Audit Trail        $HEND06 </TD>
#ENDOFFILE
#
#    $WIDTH = $WIDTH - 125;
#
#   }


print <<ENDOFFILE;
    <TD background=../images/CES-BACK.gif width=$WIDTH $NW $AC>
    </TABLE>
</TABLE>
ENDOFFILE

